unit ConfirmForm;

interface

uses
  Classes, SysUtils, Controls,
  RaApplication, RaBase, RaControlsVCL;

type
  TfrmConfirm = class(TRaFormCompatible)
    lblConfirm: TRaLabel;
    btnYes: TRaBitButton;
    btnNo: TRaBitButton;
    procedure btnYesClick(Sender: TObject);
    procedure btnNoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConfirm: TfrmConfirm;

implementation

uses
  Units;

{$R *.dfm}

procedure TfrmConfirm.btnNoClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmConfirm.btnYesClick(Sender: TObject);
begin
  frmUnits.DeleteUnit;
  close;
end;

end.
